home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO001.dsk / DG.DEMO3.bas < prev    next >
BASIC Source File  |  2012-02-16  |  787b  |  21 lines
  1. 100  REM  MOIRE PATTERNS
  2. 110  PRINT  CHR$(4)"PR#3":W = 559:D = 191
  3. 120  DEF  FN R(Z) = 1 + INT( RND(1) *Z)
  4. 130 XC =  INT(W/4) + FN R(W/2):YC =  INT(D/4) + FN R(D/2)
  5. 140 S = 1 + FN R(4)
  6. 150  & DG: FOR X = 0 TO W -1  STEP S
  7. 160  & HUE = 15: & DOT AT XC,YC: & LINE TO X,0
  8. 170  & DOT AT XC,YC: & LINE TO W -X,D
  9. 180  & HUE = 0: & DOT AT XC,YC: & LINE TO X +1,0
  10. 190  & DOT AT XC,YC: & LINE TO W -X -1,D
  11. 200  NEXT 
  12. 210  FOR Y = 0 TO D -1  STEP S
  13. 220  & HUE = 15: & DOT AT XC,YC: & LINE TO W,Y
  14. 230  & DOT AT XC,YC: & LINE TO 0,D -Y
  15. 240  & HUE = 0: & DOT AT XC,YC: & LINE TO W,Y +1
  16. 250  & DOT AT XC,YC: & LINE TO 0,D -Y -1
  17. 260  NEXT 
  18. 270  POKE 49168,0: FOR I = 1 TO 600
  19. 280  IF  PEEK(49152) >127 GOTO 300
  20. 290  NEXT : GOTO 150
  21. 300  POKE 49168,0: PRINT  CHR$(4)"PR#3": PRINT  CHR$(21): TEXT : HOME